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$TITLE (VACIS2) 
$REGISTERBANK { 0 . 1 > 



FIRMWARE OPERATING SYSTEM 
Cor the 

VEHICLE AUTOMATED CONTRABAND INSPECTION 
SYSTEM (VAC IS) 
12 -AUG- 9 6 

by Eric Ackermann/Ken Valentine/Jeff Adams 
Instrument Products Organization 
Copyright 1996,97,96,99 by SAIC 



This work is dedicated to Che memory of Xen - 



The target CPU is a DALLAS 87CS20 »P running 
at 24 Mhz. 

REVISIONS 

As released for 24 Hh2 crystal and 
RS-485 half -duplex serial commxinications . 
Serial comm handled by Siemens SAB 32526 
High Level Serial Cottminications Controller, 
sec is operated as a slave in Normal Response 
Mode with Buad Rate set by the Master's 
(System Controller's) clock. 

** 12-AUG-96 •* 

Cleaned up the buffer handling of counter data 
in order to fix bug of not ignoring the unused 
counters. Added the WRITE^DAC command handler. 
Uncommented the DAC init. Added READDAC coinmand. 
Added Counter Reset command. 

** 20-JAN-98 *• 
Jeff Adams 

Added Stretch Memory to DAC communication. This 
is needed as running at full speed violates min 
WR pulse width of AD7228 DACs. 

*• 21-JAN*93 ** 
** Jeff Adams ** 
Removed unused code« added comments, fixed minor bugs 
and renamed file to VACIS2.ASM from VACISBBD-ASM in 
preperation for first system demo. 

•* 26-aAN-93 ** 
** ESA *• 

Put SJMP NXT^IC line back in for proper counter 
reading. Done by JA 1-29-98, documenting now, 
** ll-FEB-98 ** 
*♦ ESA 

Set default DAC (discriminator) setting to optimum value 
of 225. 

•* ll-FEB-98 *• 
♦* ESA *• 

unreleased Add packet mode Cor PC to slave comm. 

•* 12-JAN-99** 
** ESA ** 

MEMORY MAP FOR DS87C520 RAM REGISTERS 
(Regs S00-$3F. Directly /"Indirectly Addressable RAM) 
(Includes GPRs and Bit- Addressable RAM) 

- tiiimtmmtiiimtmmtmmttmmmmmu 

• RAM >BYr0,4,8.C'BYPl»S,9,D'BTr2,6,A.E»BYT3,7,B,r« 

r ■ REG_00 > RO-HANKO > Rl-BANKO ' R2-BA11K0 » R3-BANK0 • 

• * (MAIN) » (MAIN) « (MAIN) > (MAIN) • 

• REG_04 * R4-BANK0 > R5-BANK0 » R6-BANK0 » R7-BANK0 ■ 

• » (MAIN) » (MAIN) > (MAIN) » (MAIN) « 

• REG„08 * RO-BANKl ' Rl-BANKl ^ R2-BANK1 » R3-BANX1 « 
■ » RO.RBl ' » IC.CNTR »SNI>_PKT_ • 

• 'EX0,T1 'TO 'TO »T1 SIZ» 

« REG_OC > R4-BANK1 > R5-BANK1 > R6-BANK1 R7-BANK1 • 

• ' > CNTR^RDS » LTCH_CNTR_TMR * 



voo.o - 

SvOl.2 

fV01,3 

fV02,0 

fV02.1 
•V02.2 
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• >T1 'TO *T0 LB HB » 

• REG_10 » R0'BANK2 * ni-BANK2 * R2-BANX2 » R3-BANX2 ■ 

• 1 ) ) 1 * 

■ REG_14 J R4-BANK2 ' R5-*BANX2 » R6-BANK2 ' R7-BANX2 ■ 
t 1 J > J • 

CAAAAAAiUUAAAAAAAAAMAAAAAXAmAMAAAAXmm^ 

• RSG_i8 » R0-BANK3 » R1-BANK3 * R2-BANK3 ' R3-BANK3 * 

» 1 3 11 • 

• REG_1C > R4'BANK3 ^ R5-BA1«3 » R6-3ANX3 ' R7-BANK3 ■ 

• REG_20 ' 3 PR0G_F > ' ■ 

• i 1 lift 

» REG_24 3 1 J J i 

■ 1 1 1)1 

• REG_28 3 3 3 3 1 

< 3 1 11 ■ 

• REG_2C 3 3 3 3 STATUS ' 

t 3 3 3 3 ■ 

• REG_30 3CNTR_BUF. . ' . {NON PKT) 3 3 i 

• REG_34 3 3 3 1 » 

• REG„38 3 3 3 3 1 

• REG_3C 3 I 3 1 ■ 

timmiimmmmmttmmtitmitnumtmu 



maOKY MAP FOR DS37C520 RAM REGISTERS 
tRegs $40-$7F, Directly/ Indirectly Addressable RAM) 

mmumtmmmtttmmmtmmmmmmu 

« REG_40 ^ODD^BEGIN 3 » s • 

• REG_44 3 I > 1 « 

• REG_48 1 3 3 s 1 

• REG_4C » 3 3 3...CNTRS • 

• REG_50 'OVRFLW0_7 '0VRFLW8 F » TEMP LSB » TEMP_MSB ■ 

• REG_54 5GC_RCV_l.SB> ... »GC_RCV„MSB>RI*_RCV_LSB« 

• REG_53 »RL_JIC:V_MSB'NUMERR_LSB5ND«ERR_MSB» ■ 

• REG 5C ^ ' * * • 

• REG_60 ' a3R_LTCH.CNTR_TM » PKT_BUF_IN • 

• » LB HB > tB HB ■ 

« RBG_64 5 PKT_BUF_OUT ' » • 

• » LB HB > » • 

• REG.ea 3 13 3 1 

• REG_6C 3 1 3 3 • 

• REG_70 3 » J » • 

• REG_74 > 3 3 1 « 

• REG_78 3 J 3 » ■ 
; • REG_7C J 3 3 j • 

mttmiimmtmitmmmmmmmtmmm^ 

{Regs $80-$9F, Indirectly Addressable RAM) 

mimimmttitttmmmmmntmmmmnu 

■ REG_80 3DUMy0_LSB IDUMITO^MSB 'DUMYl.LSB » • 

• REG_84 3 3 13 1 
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• REG_8B 3 » s 3 • 

■ REG 8C » » ' ^ 

• REG_90 > J 3 » • 

■ REG_94 » > J J • 

• REG 98 » ' > » ' 

• REG_9C * » > ..; 'DUMYF.MSB ■ 

ktimitmmtmmmmmmmttmnmmim^ 



MEMORY MAP FOR DS87C520 RAM REGISTERS 
(Regs $AO-$FF, Indirectly Addressable RAM) 

ttmiitmimmimmttmtmmiiiitmmtmu 

• REG_AO »DUMYOF0_7 'DUMY0F8_F ' * " 
CAAAXAAAMAAMMAAAAAAAAAAAAAAAAAmAAA^^ 

» REG_A4 J J 1 3 » 

• REG_A8 i i ^ i * 

• REG^C » * » ' J . 

• REG BO 3 J 3 J • 

CAAAAAXAAAmAAAAAAmAmAAAAAmAAmAXAAX^^ 

• REG_B4 >REC BUFFER' ^STRT RFIFO* • 

• 3REC_CNT_tO»REC_CNT_HI» HDLC.CNTL* COMMAND • 

• REGIES 5HDLC_STTS/* ^ ' • 

• ' DACV/ » DACV+1/ » OACV+2/ ' DACV+3 ' 

• 5SYNC|NEW_ > NEW_LTCH_CKTR_TM ' • 

■ 'PKT.SIZ 'LB H3 ' • 

• REG^BC 3 J 5 3 • 

• ^ ' DACV+4 » DACV+5 » DACV+6 ' DACV+7 ■ 

• REG_CO 3 3 1 J « 

• ' DACV+8 ' DACV+3 ' DACV+A » DACV+B * 

■ REG_C4 ' » ' ' • 

• ' DACV+C ' DACV+D ' DACV+E ' DACV+F • 

• REG.CB 'RFIFO MAX » i J « 

■ »HDLC_STTS 3 3 3 » 
CAmAAAAAAAmAAMAAXAAAAAAAAXAAXA^^ 

• REG^CC ' DAC_SAV J i 3 « 

« R£G,DO » 3 3 3 • 

• REG_D4 3 3 3 3 ■ 

• REG_D8 » » ' '..DAC^SAV • 

• REG^DC 3 3 3 3 • 

■ REG_EO » STACK ' STACK+1 » STACK+2 ' • 

« REG_E4 > I J 3 . 

■ REGIES » 3 3 3 ■ 
' REG EC * ' » ' * 

• REG.FO 3 3 3 3 t 

• REG_F4 » J » 3 ■ 



REG_F8 » 3 J 1 « 

REG^FC » > » ' STACK+IF ■ 

timittiimmmmmmtttimmmmmmtii^ 



MEMORY ALLOCATION 



$NOLIST 

SINCLUDE{87C520,PDF) 
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245 



250 



255 



260 



265 



270 



275 



280 



285 



230 



235 



300 



SLisr 

DSEG 
ROJRBI 
IC_CNTR 
SND_PKT_SIZ 

CNTR_RDS 



EQU 
EQU 
EQU 



LTCH„CNTR_TMR,LB 
LTCH_CNTR_TMR_HB 



BD_ADR 


EQU 


IFH ; 


PROG^F 


EQU 


21H 


STATUS 


EQU 


2FH ; 


CNTH_BUF 


EQU 


30H ; 


ODD_BEGIN 


EQU 


40H ; 


OVRFLW0_7 


EQU 


50H ; 


0VRFLW3_F 


EQU 


51H . 


TEMP_LSB 


EQU 


52H ! 


TEMP_MSB 


EQU 


S3H . 


GC.RCV_LSB 


EQU 


S4H ; 


GC_RCVJtiSB 


EQU 


56H , 


RL_RCV_LSB 


EQU 


S7H ! 


RI.-RCV_MSB 


EQU 


58H , 


NUMERR.LSB 


EQU 


59H , 


NUMERR_MSB 


EQU 


5AH , 



CUR_QirR_LTCH_TM_LB 
CUR_CNTR_LTCH_TM_HB 
PKT„BUF_IN_LB 
PKT_BUF.IN_HB 
PKT_BUF„OUT_LB 
PKT_BUF_OUT_HB 



; On- board RAM byte definitions 
08H ;R0, Reg Bank 1, Needs label for PUSH/POP Instructions 
OAH ;Cntr for loops doing I/O w/cntr ICs (R2 Ban3c 1). 
OBH ;Num of PKTs to be Xmitted. Dec'd in Tl during PKT Xmit and 
;...set to NEWLPKT^SIZ when Xmit done 
EQU ODH ;Init'd to NEW_PKT_SI2 and dec'd to indicate PKT done 
;...(R5, BanJc 1). 
EQU OEH ; Software timer inc'd in TO int to cause latching 

;...of counters. Low byte (R6, Bank 1). 
SQU OFH ;High byte {R7, Bank 1). 
Printed Circuit Board Adr 
— as read from DIP switch 
Program status/control flags 
Serial status-byte bits 

Start of buffer for 32 bytes of counter data 
Beginning of Odd counter bank in buffer. 
Overflow byte for counters 0-7 

Overflow byte for counters 8-15. OVRFLW bytes not 

currently used. When implemented will indicate 

...which counter has overflowed. See CTROVF bit. 
Temp low byte 

Temp hi byte {1 bit in TEMP.MSB.OJ 
Get Counts Received counter low byte (Real&Fake) 
Get Counts Received counter high byte (Real&Fake) . Used for 
...diagnostics only. Xmitted with SND_DEBUG onnd. 
Reloads Received counter low byte 
Reloads Received counter high byte. Used for 
...diagnostics only. Xmitted with SND_DEBUG cinnd. 
Number of Errors counter low byte 
Number of Errors counter high byte. Used for 
...diagnostics only. Xmitted with SND_DEBUG cmnd. 
EQU 06 OH ; Reload value for LTCH_CNTR_TMR during PKT. Reset 

...to NEW_LTCH_CNTRjrM at start of new PKT (in TO). 



DUWYO.LSB 
DUMYOFO^? 


EQU 
SQU 


80H 
OAOH 


DUMYOFS^F 


EQU 


OAIH 


R£C_CNT_LO 


EQU 


0B4H 


hTfLC.CNTL 


EQU 


0B6H 


COMMAND 


EQU 


0B7H 


DACV 


EQU 


0B8H 


NEWLPKT_SI2 


SQU 


0B8H 



NiW_LTCiCCNTIl_TM_LB 
NEWLLTCH.CNTR.TM.HB 



DAC^SAV 
STACK 



EQU 061H 

EQU 062H ;Ptr for loading a new set of cntr data from cntr latches 
EQU 063H ;...to on-board RAM buffer for compiling current PKT. 
EQU 064H ;Ptr for loading a complete PKT buffer into Siemens 
EQU 065H ;...XFIFO for transmission. 
LB Of 1st test data word (Fake Cata) 
Overflow byte for dtanmy data 
. . .words 0-7 . 

Overflow byte for dummy data 
. , .words 8-Ofh, 
Low byte of rec'd byte count 
... as read from SCC RBCL reg 
JiDLC Control byte - first byte 
...in RFIFO for all messages 
2nd byte of every message - 
. , . command from system cntrlr 

Rec buffer location for DAC settings sent with the 
. . . SET^DACS command. 

For PKT onnds rec buffer location for the packet size of the 
, . .next packet. 

EQU 0B9H ;Rec buffer location for time between cntr latches as 
EQU OBAH ;...sent by PKT_SVNC, PKT^ASTOC or TST_PKT_S commands. 

...Format is 65535-{# of TO intervals). Adjusted by 
...Master to account for varying speeds of target. 
EQU OCCH ;Used to save BAG values for readback 
EQU OEOH ; Bottom of stack 



305 BSEG /On-board RAM bit definitions 

RESET_526 BIT PX.O ;8252S RESET, active high 

GATE BIT PX.l ;a2C54 GATE 

DIO BIT PI. 2 /Data I/O for DS1620 

SCK BIT PI. 3 /Clock for DS1220 temp sense 

310 SEL BIT PX.4 /Select for DS1620 

SPRP15 BIT PI. 5 ;SVARB 

SPRP16 BIT Pi. 6 /Spare 

SPRP17 SIT PI. 7 /Spare 

IWP_526 BIT P3.2 ; 82526 Interrupt 

315 INT_RQ BIT P3.3 /External Interrupt 

/...Request (-INT1J 
/ — (not used) 

STS_XI3U _ BIT STATUS. 0 /Transmit Data Underrun tXDU) 

;...CPU not feeding XFIFO fast enough 
320 CTROVF BIT STATUS. 1 /Count overflow in one 

/ ... or more counters 

STS^INVALID BIT STATUS. 2 ;A valid frame received but the 

; . . .message was not valid 

STS_RDO_RFO BIT STATUS. 3 ;Rec Data Overflow (RDO) in RSTA 
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325 



330 



335 



340 



345 



350 



355 



STS_OTHER BIT STATUS. 4 



STS_PCE 
STS_RAB 
RES.PKT 



BIT STATUS. 5 
BIT STATUS. 6 
BIT STATUS. 7 



;STS_CRC BIT STATUS. 7 

CNTRS.LTCHD BIT PRCX3_F.O 
PKT_QUED BIT PROG_F.l 



SYNC_CMND 
DATA_TYPE 
PKT_BUF 



BIT PR0G_F.2 
BIT PR0G_F.3 
BIT PR0G_F.4 



PKT_IN_PROG BIT PR0G_F.5 
NEW_CMND BIT PR0G_F.6 

XFIFO_RDY BIT PR0G_F.7 



...or Rec Frame Overflow (RFO) 
...in EXIR 

General status bit to indicate 
...an unexpected error type 

— reported by SCC 
Protocol Error reported 
...on last reception 
Received Aborted niessage 
. .* status from SCC 

Indicates last PKT never sent or aborted - there is 
...a slight chsmce this bit is set in error if POLL from 
...Master comes after JNB PKT_QUED and before or during 
...MOV A,#XRES in QUE.PKT sub, 
; Checksum error in last 

— received message 

Indicates cntrs latched and ready to be read to buffer. 
...Set in TO int and clr'd after cntrs read. 

Set after first 32 bytes of a pkt have been loaded into XFIFO, 
...When set EXO will set TFl on next XPR to force Tl int 
...which finishes pkt transmission once initiated. 
Set in Seimens int when PKT^SYNC or TST_PKT_SYNC cmnd rec'd. 
...Polled during cntr read to buffer to abort and execute cmnd. 
Clr if data type is real counts in PKT mode, set if test counts. 
...Set in PKT.SYNC or TST_PKT_SYKC cmnd. 

Indicates current buffer for new cntr data in PKT mode. If clr 
...loading CNTR_BUFO, if set loading CNTR_BUF1. 
Set in PKT.SYNC or TST_PKT_srNC cmnd to indicate PKT mode. All 
. . , non-PKT~cmnds will call STOP_PKT to clr and end PKT mode. 

Set ^en a valid command 
...rec'd, cleared when cmnd 
...is being executed. 
Set on Trans Pool Ready (XPR) 
...int, cleared when XFIFO 
, . .is vnritten to. 



360 



3 65 



370 



375 



380 



385 



XSEG 

PKT.BUFQ 
PKT_BUF1 

DIP_SW 



CNTR_0 
CNTR^l 
CNTR_2 
CTRL02 
CNTR_3 

CTRL3S 

CNTR_6 

CNTR_7 

CNTR^a 

CTRL68 

;uui^i^^ 

CNTR,P 

CNTR^IO 

CNTR^ll 

CTRLPll 

LLD_0 

; . , . Control 
; Addresses 



EQU OOOOH 
EQU 0200H 

EQU 04FFH 



External Hardware Definitions. 
. . .READ/WRITS addresses 

Starting address of buffer 0 in on-board IK RAM, 
Starting address of buffer X in on-board IX RAM. 

...Each buffer is 1/2K (512 bytes) so can handle mstx PKT size of 16, 
DIP Switch Address. LB must be 

FF to avoid bus contention on 

external memory read cycle (this may not 

be needed w/ stretch memory) . HB nmst be 

...04 so as not to access internal IK SRAM. 
Counter Channel- 0 
Counter Channel- 1 
Counter Channel-2 
Control Word (0-2) 
Counter Channel-3 

; Control Word (3-5) 
; Counter Cheu}nel-6 
; Counter Channel-7 
; Counter Channel- 8 
; Control Word (€-8) 

; Counter Channel-15 
; Counter Channel-lS 
; Counter Chamnel-17 
; Control Word (15-17) 
; 8-Bit DAC Discriminator 



EQU 4000H 
EQU 4100H 
EQO 4200H 
EQU 4300H 
EQU 4800H 

EQU 4B00H 
EQU 5000H 
EQU SIOOH 
EQU 5200H 
EQU 5300H 

EQU 6800H 
EQU 6900H 
EQU 6AO0H 
EQU 6BO0H 
EQU 7000H 
tO-lS) 

8000H to OBFOOM are unconsnitted 
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395 



400 



-SAB82526 SCC Register Addresses- 



FIFO 



ISTA 
MASK 
STAR 
CMDR 
MODE 
TIMR 
EXIR 
XADl 
RBCL 
XAD2 



EQU 0CO40H 



EQU 0C060H 
EQU 0C060H 
EQU 0C051H 
EQU 0C061K 
EQU 0C062H 
EQU 0C053H 
EQU 0C0S4H 
EQU 0C064H 
EQU 0C065H 
EQU 0C065h 



;32 byte Transmit/ Rec i eve 
;...FIFO, A write from this 
address goes into XFIFO, 
;...a read comes from RFIFO. 
; Interrupt status (read) 
? Interrupt masJc (write) 
; Status register (read) 
; Command register (write) 
;Mode register (r/w) 
; Timer register (r/w) 
; Extended interrupt (read) 
; Transmit address 1 (write) 
; Receive byte count low (read) 
; Transmit address 2 (write) 
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405 RAKl EQU 0CO66H ; Receive address high 1 (write) 

RSTA EQU 0C067H ; Receive status reg {read) 

RAH2 EQU 0C067H ;Receive address high 2 (write) 

RALi EQU 0C068H ;Receive address low 1 (r/w) 

RHCn EQU 0C069H ; Receive HDLC control (read) 

410 RAL2 EQU OC069H ; Receive address low 2 (write) 

XBCL EQU 0C06AH ; Transmit byte count low (write) 

BGR EQU 0C06BH ;Baudrate generator reg (write) 

CCR2 EQU 0C06CH ; Channel configuration 2 (r/w) 

RBCH EQU 0C06DH ; Receive byte count high (read) 

415 XBCH - EQU 0C06DH .-Transmit byte count high (write) 

VSTR EQU 0C06EH ; Version status' (read) 

RLCR EQU 0C06EH ; Receive frame length checJc (write) 

CCRl EQU OC06FH /Channel configuration 1 (r/w) 

TSAX EQU 0C070H ;Time-slot assignment trans (write) 

420 TSAR EQU 0C071H ;Time-slot assignment rec (write) 

XCCR EQU 0C072H /Transmit channel capacity (write) 

RCCR EQU 0C073H .-Receive channel capacity (write) 
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430 



435 



440 



445 



450 



455 



460 



465 



Assembler Constants 



KMC 



RHR 



XR£S 



XI P 



XTP 



sec CMND Reg Commands 



EQU 80H 



EQU 4 OH 



EQU OIH 



EQU 04H 



XIP_XME EQU 06H 



EQU 08H 



XTP_XME EQU OAK 



MSTRJU3D 
SDLC.CTI* 



EQU 050H 
EQU 003H 



CTLJfl) EQU 3 OH 

DAC^miT EQU OEIH 
BROADCAST EQU OFFK 
RD^BAK EQU OCEH 



XTAL^Z EQU 24 



Rec Mess Complete - indicates data 
. . .has been read following RME int, 
...frees RFIFO space. 
Reset HDCL Receiver - clears all data 

from RFIFO and resets sequence number 

...counters, N(R) and N(S), 
Transmit Reset - XFIFO is cleared, 
. . .any mess is aborted and XPR int 
. . .is generated. 

Transmit I Frame - initiates the trans 
...of I frame, address and control field 

automatically added by SCC. Used when 

...32 bytes written to XFIFO but mess 
. . .not coaqplete. 

XIF & Trans Mess End - indicates data in 
. . .XFIFO completes frame. CRC and closing 
— flag automatically added by SCC. 
Transmit Transparent Frame - initiates the 
, . . tranmission of Tranparent frame, address 
...and control field must be added by uC. Used 

when 32 bytes written to XFIFO but mess 

. . .not complete. 

XTF k Trans Mess End - indicates data in 
...XFIFO completes frame. CRC and closing 
...flag automatically added by SCC* 

Address of Master (System Controller PC) 
SDLC Control byte for insertion when sending 
transparent frames. 

32c54 Control Word for 
...2-byte I/O, Mode=0, hex 

Power up with optimum DAC (discriminator) setting of 225 dec 
Reserved Broadcast (Global) ATTN address 
ReadbacJc command to latch 
...status and Count of all 
3 82cS4 counters 

; Crystal frequency in Mh2. Adjust TOLOAD when changed. 
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TMP_DLY EQU 65535- (1000*XTAlrJffi2) 



TOLOAO EQU 256-200 



Timer 0 value for 12mS 
...delay for DS1260 Init. 
,..12mS/E12 (osc. periods/count)) • 1000000 
...(osc. periods/S) = 1000 
; Timer 0 reload for lOOuS interrupt. (XTAIOWZxlOefi osc/S / 
;,,.12 osc/cnt) * lOOxlOe-6 « 200 (for XTAIrJlHZ » 24). 
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. — . System Controller to PCS Commands — 

;Stop counting, latch counts, clear and restart counters, 
/...read latched counts, load data into XFIFO of SCC 
; Reads DS1620 temp sensor and loads value into XFIFO. 
? Loads XFIFO with current DAC settings taken from DAC.SAV 
; . . .buffer 

;Stop, clear and restart all counters without reading them. 
; Resets SCC'c Receiver and Transmitter and clears diagnostic 
.-...counters GCJRCV, RL.RCV and KUMERR. 
? Increments each of 16 2 -byte dummy count regs and loads 
;...into XFIFO along with 2 overflow bytes and STATUS. 

Overflow bytes set to OFFK when count regs roll over-. 
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READ_arrs 


EQU 


OOH 




RD^TEMP 
RD.DACS 


EQU 
EQU 


OIH 
02H 


480 


CUUCNTRS 
RES^XNR 


EQU 
EQU 


03H 
04H 




TEST_DATA 


EQU 


05H 



49 



490 



495 



500 



505 



510 



515 



520 



525 



530 



535 



540 



545 



550 



SND^DEBUG EQU 06H 
SET.DACS EQU 07 H 

Sm^STS EQU 08H 



RESEND EQU 09H 



PKT^SYNC EQU OOAH 
PXT_ASYNC EQU OOBH 
TST„PKT_SYNC EQU OOCH 



Load diagnostic counters, GC_RCV, RL_RCV and NUMERR into XFIFO. 
This comniand is rec'd with 16 bytes of data. Loads each DAC 
, , .with corresponding value from receive buffer. 
Resets the SCC Receiver and Transmitter and loads STATUS 
...into XFIFO. This command is executed internally when any 
...transmit or receive error is detected. Can also be sent 
. . .by Master. 

Reloads CNTR_BUF into XFIFO. CNTR_BUP contains either real 
...cnts from last READ_CNTS cmnd or dummy cnts from last 
...TEST.DATA cmnd. 



CSEG 

ORG OOOOH 
LJMP KEYSET 

ORG 0003H 
LJMP XINTO_ISR 

ORG OOOBH 
LJMP TMRO_ISR 



; Vector to initialization code 

; Vector to external INTO ISR. Interrupt from SCC. 
; Vector to TIMERO ISR. , 



ORG 0013H 

;LJWP XINTX_ISR ; Vector to external INTl ISR. Not used. 



ORG OOIBH 
LJMP TMR1„ISR 

ORG 0023H 
;LJMP SER_ISR 



; Vector to TIMER! ISR, Simulated Int to transmit PKT. 
; Vector to Serial (UART) ISR. Not used. 



ORG OlOOH 

USING 1 ;BANK (1) ,GPRs 

;«*#««t«4«««#«##«#####««##»«##«ff«###«*#####«l«<l«« 
;# EXTERNALO ISR # 

;###«###««#«##4###############«##»#«##«««##«»###»* 

;Handles int req from Siemens SAB 82526. Sets NEWJCMND if a valid command rec'd. 
;Sets XFIFO_RDY if 82526 is ready for more transmit data* Time to service XPR int 
;is critical in PKT mode. In PKT mode has second priority to TO, otherwise highest 
; priority. 
XINTO^ISR: 
setb sprpl7 

CLR PXO ;thi3 does not appear to work * see pg 18 of Eng NB - ok to remove 
PUSH ACC jSave Accumulator 

PUSH DPL ;Save Data Pointer Low 

POSH DPH ;Save Data Pointer High 



MOV DPTR.#ISTA 
MOVX A,8DPTR 
JNB ACC.4,CK.J«1B 
SBTB XFIFQ_RDy 



JNB PKT_QUED, EXIT_ISR^PR 

SETS TFl 

CLR PKT_QUED 
EXIT„ISICXPR: 

POP DPH 

POP DPL 

POP ACC 
SETS PXO 
clr sprpX7 

RETI 



;SCC Int Status reg 
;Read ISTA 

/Jump if not XMIT Pool Ready (XPR) 
; Indicates XFIFO ready for more data 



555 



560 



565 



CK»RME: 
PUSH 
PUSH 
PUSH 
SETS 
J13B 
MOV 
MOV 
MOVX 
ANL 
CJNE 
MOV 
MOV 
MOVX 



PSW 

R0_RS1 

B 

RSO 

ACC-7,CieRPF 
RO,A 

DPTR, #RSTA 

A^SDPTR 

A,«OF0H 

A,#OA0H,REC_ERR 
DPTR, #RBCL 
R0,#REC_CNT_LO 
A, 8DPTR 



;Save Processor Status Word 



; Select BANK(l) GPR's 

fJUmp if not Rec Message End iRME) or XPR 

fSave ISTA for error handling if Rec error found 

;SCC Receive Status Register 

; Check for OK message 

rMask off low nibble of RSTA 

fVFR and CRC ok bits set if good frame 

fSCC Rec Byte Count Low reg 

?RAM Storage 

;Read count low byte 
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570 



575 



580 



585 



590 



595 



600 



605 



610 



MOV @RO,A 

MOV DPTR,»RBCH 

INC RO 

MOVX A,@DPTR 

MOV 9R0,A 

CONE A, #40H,MESS_ERR 



MOV 

CLR 

DEC 

SVBB 

JC 

MOV 

MOV 

MOV 



,#19 



A 
C 
RO 

A, 9R0 
MESS_ERR 

B, 9R0 

DPTR,#FIFO 
RO, #HDLC_CNTL 
RD_RFIFO_LPr 

MOVX A,9DPTR 
MOV @R0,A 
INC RO 

DJN2 B,RD_RriFO_LP 

MOV R0,# COMMAND 

MOV A,#0CH 

CLR C 

SUBB A,@R0 

JC MESS_ERR 

SETS NEW.CMND 

MOV DPTR,#STAR 
CLEAR: 

MOVX A.&DPTR 

JB ACC.2,CLEAR 

MOV DPTR, #CKDR 

MOV A. #RMC 

MOVX 9DPTR,A 

CJNB 9R0,#PKT„SYNC,CK„TST_SYNC 

SETS SYNC^CMND 
CK_TST_SYNC: 

CJNE SRO , #TST„PKT_SrNC, NOT_SYNC 

SETB SYKC.CMND 
NOT_SYNC: 

SJMP EXIT^ISR 



, - .and store 

sec Rec Byte Count High reg 
Pt to RAM storage 
Read count high byte 
— and store 
If count HB not 0, too 
...many bytes, NRM bit set 
Max length of valid command 
Prepare for subb 
Pt to REC_CNT.LO 
Rec counts HB is 0, from above 
Exit if coiwtiand too long 
Load cntr for bytes rec'd 
First address or SCC RFIFO 
Start of our rec buffer 



Get byte from RFIFO 
Load into rec buffer 
Count off bytes read 
Loop till done 

PC to COMMAND byte of message 
Max value of valid command 
Prepare for subb 
Check COMMAND byte in rec'd mess 
...and exit if not valid 
Indicates new valid command rec'd 
SCC Status reg 



Wait til Command Executing (CEC) is clear 
SCC Cominand reg 

Send Rec Message Complete command 
to release space in RFIFO 



Done with message reception. 
...rec'd with no errors. 



Valid command 



MESS_ERR: 

SETB STS.INVALID 
SJMP STS_SBT 



; Indicate a valid frame rec'd but message vas invalid 



REC.ERR: 

JB ACC.7,CK_RD0 
SETB STS^OTHER 

615 CK^RDO: 

JNB ACC.6,CK_CRC 
SETB STS_RDO„RFO 
CK_CRC: 

JB ACC.5,CK_RAB 

620 ? SETB STS_CRC 
SETB STS^OTHER 
CK_JIAB: 

JNS ACC . 4 , NO.JWBORT 
SETB STS.JIAB 

625 NOJIBORT: 

MOV A,RO 
CK-RPF: 

JNB ACC.6,CK_EXIS 
SETB STS_OTHER 

630 CK^EXIR: 

JNB ACC.0,STS_SEr 
MOV DPTR, #EXIR 
KOVX A,eDPTR 
JNB ACC.T^CKJCDU 

635 SETB STS.OTHER 

CICJCCUj 

JNB ACC.6,aePCE 
SETB STS_XDU 
CK_PCE: 

640 JNB ACC.5,CrL.^lI'0 

SETB STS.PCE 
CK_RFO: 

JKB ACC.4,STS_SET 
SETB STS_RDO_RFO 

645 STS.SET: 

MOV COMMAND, #8 



;RSTA in ACC 

;Jump if Valid Frame Ready tVFR) 



; Indicate Receive Data Overflow error 



/Indicate a checksum error 
;Set Other bit for \mexpected ints 

;Jump if Rec Aborted Mes (RAB) not set 
; Indicate RAB error 

; Restore ISTA to ACC following REC_ERR 

;Jump if not Rec Pool Full (RPF) 
;Set Other bit for unexpected ints 

;If no other intrpts* finish error handling 
; Extended Int Reg, - check other sources 
;..,of interrupt 

;Jump if not XMIT Message Repeat (XHR) 



/Indicate Transmit Data Underrun (XDU) 

/Jump if not Protocol Error {PCE> 
/Indicate PCE in Status byte but don't 



/Indicate Rec Frame Overflow (RFC) 

rif error, execute send status command 



this instr does not work! indirect addressable only 
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SETS NEW.CKND 

EXIT^ISR : 
650 POP B 

POP R0_RB1 
POP PSW 
POP DPH 
POP DPL 
655 POP ACC 

SETS PXO 

clr sprpl7 
RSTI 



; Indicates new valid command. 



; Res core FSW 
; Restore DPH 
; Restore DPL 
; Restore ACC 



660 



665 



670 



675 



680 



685 



690 



S95 



700 



705 



710 



715 



720 



725 



#««##«»«###»##«««<««##«###««#««#######«########»# 
# TIMERO ISR # 

#############*##########»##»*»«###«#####*##»»#«»» 

Used as highest priority interrupt in packet mode. Started with PKT_SYNC or 
TST_PXT_syNC commands to dec software timer {LTCH_CNTR_TMR) and latch counters 
when 0, Set up as 8-bit auto-reload to reduce overhead. This mode will work 
for timer resolution of up to about 125 uS. For larger values of TOLOAD 16 bit 
timer mode must be used. Min time to sevice is essential for fastest comm rate. 
Must be able to interrupt Tl and return before XFIFO is emtied. 
On power -up timer is set to model and used by INIT_DS1260 to provide 12mS delay. 

TMRO_ISR: 

setb sprpiS 

PUSH PSW ;Save processor status 

SSTB RSO /Select BANK(l) GPRs 

INC R6 

CJNE R6,#0FFH,EXIT,T0_ISR 
CJNE R7,#0FFH,INC_MSB 
SJMP LATCH^CNTRS 
INC_MSB: 

INC R7 
clr sprplS 

SJMP EXIT_TO,ISR 
LATCH.CNTRS: 
setb SprplS 
PUSH ACC 
PUSH CKCON 
PUSH DPL 
PUSH DPH 
ORL CKCON, #001H 
DPTR,#CTRL02 
R2,#6 
GATE 



;Same as READ_CNTRS subroutine through CALL RESET_CNTRS instr. 



MOV 
MOV 
CLR 
LOOPIO 
MOV 



A, #R0_BAK 



MOVX @DPTR,A 
MOV A, DPH 
ADO A,«3 
MOV DPH, A 
DONZ R2, LOOPIO 

MOV DPTR,#CNTR 

MOV R2,#6 
LOOP09: • 

MOV A,#OFFH 

MOVX 9DPTR,A 

MOVX ftDPTR,A 

INC DPH 

MOVX 9DPTR,A 

MOVX 9DPTR,A 

INC DPH 

MOVX 8DPTR,A 

MOVX eDPTR,A 

MOV A, DPH 

ADD A,#S 

MOV DPH, A 

DJNZ R2,LOOP09 
SETB GATE 

DJNZ RS,PKTJNOT_DON 
MOV R1,#0B9H 

MOV CUR_CNTR^LTCH_TM„LB,eRl 
INC Rl 

MOV CUR_CNTR_LTCH_TM_HB,eRl 
PKT_NOT_DUN: 

MOV R6,CUR_CNTR_LTCH.TM_LB 
MOV R7,CUR_CNTR.LTCH_TM_HB 
SETB CNTRS^LTCHD 
POP DPH 
POP DPL 



;Set MDO bit for stretch memory of 1. 
;Point DPTR at 82c54(0,3) 
;Readback all 6 82cS4 ICS 
/Disable counting 

Readback command to latch Status and Count of all 3 
...counters of the IC 
Send readback to IC{i) 
ACC^DPH 

Add offset to next 82c54 
Update DPH 



; Point DPTR at 82c54(0) 
; Preload all 6 82c54 ICS 



; Preload CNTK_0 LSB 
; Preload CNTR_0 MSB 

; Preload CNTR_1 LSB 
; Preload CNTR_1 MSB 

; Preload CNTR_2 LSB 
; Preload CNTR_2 MSB 
;ACC=DPH 

;Add offset to next 82c54 
;Update DPH 

Re -enable counting 
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POP CKCON 
730 POP ACC 

clr sprpie 

EXIT_TO_ISR: 
POP PSW 
RETI 



# TIMERl ISR # 

Simulated interrupt. Initiated in EXO when an XPR Int occurs indicating the start 
of a PKT transmission. Has lowest priority. Loads 32 bytes from buffer SDPTRl into 
XFIFO then loops until XFIFO_RDY is set. Continues \intil buffer is empty. Speed is 
critical to allow a TO Int to occur (possibly with a latch cntrs requirement) and 
not have XFIFO empty. 



TMR1_ISR: 






setb sprpl? 






PUSH 


ACC 






PUSH 


CXCON 






PUSH 


DPL 






PUSH 


DPH 






PUSH 


PSW 


;Save Processor 


Status 


PUSH 


P2 






SETB 


RSO 


;Select BANK(l) 


GPR'S 


ANL 


CKCON, #OFEH 


;Set to no stretch 


memory. 


MOV 


DPL,PKT_BUF_ 


.OUT_LB 




MOV 


DPH,PKT_BUF. 


_OUT_HB 




MOV 


R4, #32 






MOV 


P2,»0C0H 






MOV 


R0,#040H 






CLR 


XFIFO_RDY 






LOAD.XFIFO: 






MOVX A,eDPTR 






MOVX 


9R0,A 






INC 


DPTR 







735 



740 



745 



750 



755 



760 



765 DJNZ R4,I/0AD_XFIF0 

MOV RO,#061H 

MOV A,#XTF 

MOVX SRO,A 
WT_FOR_XPR: 
770 JNB XFIFO_RDY,WT_FOR_XPR 

CLR XFIFO_RDT 

MOV R0,#Q40H 

MOV R4,#32 

DJNZ R3 , LOAD_XFIFO 
775 MOV R4.#3 

LD_MSG_END; 

MOVX A.0DPTR 

MOVX 9R0,A 

INC DPTR 
780 DJN2 R4,LD_MSG_ENI> 

MOV R0,#061H 

MOV A,#XTF_;CME 

MOVX 9R0,A 

MOV R0.#NEW_PKT_SI2 
785 MOV A, SRC 

CLR C 

SUBB A, #2 

MOV SND_PKT_SIZ,A 

POP P2 
790 POP PSW 

POP DPH 

POP DPL 

POP CKCOH 

POP ACC 
795 clr sprpl? 

RETI 



USING 0 ;BANK (0) GPRs 

;# RESET AND ENABLE ALI. COUNTERS # 

;*«#«#««»ii#«««fi««««i##««#««««l««##««i<#####«#««* 

; Disable all 16 counters by clearing GATE, then 
; preload all counters to FFFFH {which also resets 
805 ;the OUT and NULL Status Flags), and lastly re- 
;enable counters by resetting the GATE. It is 
; possible that a counter may accumulate one count 
; (but no more than one count) between preloading 
;of its MSB and resetting of the GATE. Call with stretch 
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810 


; memory 


Of 1. 






RESET_CNTRS : 






CLR 


GATE 


; Disable counting 




MOV 


DPTR, J(CNTR_0 


; Point QPTR at 92054 10/ 




MOV 


R2 , #6 


; rrelOau aix o o^Cj4 xcs 


815 


LOOP02 : 
MOV 


A, #OPFH 






MOVX 


9DPTR, A 


; Preioaa cntr_o lsb 




MOVX 


SDPTR, A 


/Preload CNTR_0 MSB 




INC 


DPH 




820 


MOVX 


9DPTR,A 


; Preload CNTR_1 LSB 




MOVX 


9DPTR,A 


; Preload CNTR_X MSB 




INC 


DPH 






MOVX 


9DPTR,A 


I Preload CNrR_2 LSB 




MOVX 


9DPTR, A 


; Preload CNTR_2 MSB 


825 


MOV 


A, DPH 


;ACC=DPH 




ADD 


A, #6 


;Add offset to next 82c54 




MOV 


DPH, A 


/Update DPH 




DJN2 


R2 , LOOP02 






SETS 


GATE 


; Re-enable counting 


830 


RET 







835 



840 



845 



850 



855 



860 



S65 



870 



# LATCH ALL COUNTERS AMD QUE DATA # 

H«#««###«######«##»#»«4*«ll«i«««»##««#«««####### 

Disable all 16 counters by clearing GATE, then 
issue the readbacJc command to all 6 82c543 {which 
latches the Status and Count) . Next^ call the 
RESET_CNTRS subroutine to reset and re-enable all 
counters and then que the data into the counter 
buffer. Also set the corresponding overflow bit 
of any coxinters that overflow. <- not yet ijitplemented 



READ_CNTRS : 

ORL CKCON,«001H 



MOV DPTR, #CTRL02 

MOV R2,«6 

CLR GATE 
LOOF03 : 

MOV A,#RD_BAK 



MOVX QDPTR^A 
MOV A, DPH 
ADD A,«8 
MOV DPH, A 
DJN2 R2,LOOP03 
CALL RESET_CNTRS 

MOV R3,#0 
MOV RO,#CNTR_BUF 
MOV DPTR,iCNTR_0 
LOOP04: 

MOVX A,eDPTR 

JNB ACC.7,N0__0VF 

SETS CTROVF 



Set MDO bit for stretch memory of 1, 
. . , Counters require a stretch of 1 even 

at 16 MHx to satisfy worst case 

...conditions. Even with stretch can't 

go much above 24 MHz for uC crystal. 

This instruction assumes MDl and MD2 

. . .are clear. 
Point DPTR at 82c54(0,3J 
Readback all 6 82c54 ICs 
Disable counting 

Readback command to latch 
...Status and Count of all 3 
. . . counters of the IC 
Send readback to IC(i) 
ACC=DPH 

Add offset to next d2c54 
Update DPH 

Reset and re-enable- all 16 
. . . counters 

Init IC counter, cntr (3 counters /IC) 

Point to counter buffer 

Point DPTR at 1st IC, 1st counter 

Read Status of IC{i,j) 
Jump if no overflow 
Set the cntr overflow flag 
of the STATUS byte 





NO_0VF: 






875 


MOV 


CACC.e 


;Save NULL bit of Status 




MOVX 


A,9DPTR 


;Read coiint LSB of IC(i,j} 




MOV 


B,A 


;Save LSB at B 




MOVX 


A,9Df>TR 


;Read count MSB of IC(i,j) 




JNC 


NO_NUL 


;J\mp if counter has been 


880 






; . . « triggered at least once 




MOV 


B,#0 


; Clear the count LSB 




CLR 


A 


; Clear the count MSB 




NO_NUL: 








MOV 


R5,A 


;R5=MSB 


885 


CLR 


A 


; Subtract contents of down- 




CLR 


C 


; . . .counter from lOOOOH 




SUBB 


A^B 


;LSB of difference 




MOV 


dRO^A 


;Save LSB of diff in cntr buf 




INC 


RO 


; Pointer to data MSB 


890 


CLR 


A 
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900 



SUBB A,R5 

MOV @RO,A ; 
INC RO 
INC DPH 

CJ>IE R0,«OVRFLW0_7, 
SJMP READ16 ; 

MORE_CNTRS: 

CJNE R0,#ODD_BEGIN, 



INC DPH 
SJMP NXT_IC 
M0RE_CNT2 : 



MSB of difference 

Save MSB of diff in cntr buf 

Point to next counter LSB 

Point to next counter 

MORE„CNTKS 

Jump at end of counter buffer. 
...2 cntrs not used 

M0RE_CNT2 ;When pntr reaches here, 
...indicates we are at last counter of 
...even bank (U14,CNTR2) which is not used. 
SJcip unused counter. 
Go To Next IC 



905 


INC 


R3 






' CJNE 


R3,#3,UDOP04 


;Loop for all 3 counters of 








; . . .each 82c54 




NXT_IC: 








MOV 


R3, #0 


; Reset for next IC {3 counters /IC) 


910 


MOV 


A, DPH 


;Mov DPTR to next IC, 1st counter 




ADD 


A, #5 






MOV 


DPH, A 






SJMP 


L0OP04 


;Get next 3 counters 




READ16: 






915 


ANI, 


CKCON.#0FEH 


;Set to no stretch memory. 




RET 







920 



925 



930 



935 



940 



#####««############«###»»iiil«l9«l#»###«««#«###«* 
# SET DACS DIFF # 

###»#j|#«»««#«##««#i#«#«#l«*«ltt«il«###«#»t##«1l#«« 

Writes values from rec buffer to corresponding DAC. Correct order 
determined by Master. Also copies new DAC values to DAC_SAV buffer. 
DACs require stretch memory of 1. 
SET_DACS_DIFF: 

Set MDO bit for stretch memory of 1, 
...DACs require a stretch of 1 to 
...satisfy worst case conditions. 
. . .This Instruction assumes MDl and MD2 
. . . are clear . 
Point DPTR at DACtO) 
Point RO to DAC val location 



ORL CKCON,#001H 



MOV 
MOV 
MOV 
IXX>P16 
MOV 



DPTR,#LLD_0 
R0,#DACV 
Rl,«nAC_SAV 



A, @R0 
MOVX @DPTR,A 
MOV SRI, A 
INC DPH 
INC RO 
INC Rl 

CJNE R0,#DACV+16, 
ANL CKCON, #OFEH 
RET 



;Move Desired DAC val in RO 
; Write value to nAC(m) 
; Write value to DAC_SAV(in) 
; Point DPTR at next DAC 
;Next new value to set to 
; Point to next save spot 
L00P16 ;IiOop for 16 DACs 
;Set to no stretch memory. 



945 



950 



955 



960 



965 



««#««<i«««f«««#«##«m«##fff4#f ##«»«#«#»####**»### 

t SET ALL DACS * 

###««««#l#*#i#»««#ii»##»il#«it#i«#«i««#»f «#««»«*« 

Call with desired DAC value in ACC which will 

then be written to all 16 DACs. Also copies new DAC values 

to DAC_SAV buffer. DACs require stretch memory of 1. 



SET„ALL_DACS : 

ORL CKCON, »001H 



MOV 
MOV 
LOOP06: 
MOVX 
MOV 
*INC 
INC 
CJNE 
ANL 
RET 



DPTR, »LLD_0 
R0,#DAC_SAV 



Set MDO bit for stretch memory of 1. 

DACs require a stretch of 1 to 

...satisfy worst case conditions. 

...This iiistruction assumes MDl and MD2 

. . .are clear. 

Point DPTR at DAC(O) 

Point RO at DAC_SAV(0) 



«DPTR,A 
9R0,A 
DPH 
RO 

R0,#DAC_SAV+16,LOOP06 ,-Loop for 16 DACs 
CKCON, #OFEH ;Set to no stretch memory. 



; Write value to DAC(m) 
; Write valude to DAC_SAV{m) 
; Point DPTR at next DAC 



970 



;««f##««#»«l«l»««««tt#ft»«»ffl«ff#t»«#i««#i«i«**##«« 
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; # READ_DAC_SETTINGS # 

; Loads current DAC settings, which are stored in DAC_SAV buffer, 
975 ;into XFIFO. 

READ_DAC_SETTINGS : 
MOV RO, »DAC_SAV 
MOV B, #16 
CALL XMIT_DATA 
980 RET 



985 



990 



995 



lOOO 



1005 



1010 



» DS1620 (DIGITAL THERMOMETER) DRIVERS « 

INITIALIZE DS1620 ****************************** 

Call during powerup reset to configure the DS1620 for continuous sEunpling 
operation with a CPU and initiate the first cemperature conversion. Uses R2 of 
the currently selected Register Bank. Uses Timer 0 so it should be undedicated and 
it's interrupt should be disabled, 
INIT_DS1620: 

Make sure the clock is high 
Chip Select DS1620 
Write CONFIG Command 



SETS SCK 
SETS SEL 
MOV A, #OCH 
CALL WRT_8BR 
MOV A, #02H 
CALL WRT_aBR 
CLR SEL 
CLR TRO 
CLR TFO 

MOV TLO , SLOW t TMP_DLY ) 
MOV THO , »HIGH {TMP_DLY ) 
SETS TRO 
WAIT_12mS: 

JNB TF0rWAIT_12ltiS 
CLR TRO 



SETS SEL 
MOV A, #OEEH 
CALL WRT_aBR 
CLR SEL 
RET 



CONFIG Byte- (Continuous mode with CPU) 

E)e-select the DS1620 

Ensure Timer 0 is off 

Ensure Timer 0 OF flag is reset 

Reload value for a 

. . , 12mS delay 

turn on Timer 0, interrupt should be disabled 
Allow time for DS1620 EEPROM write cycle 
Jump til Timer 0 overflows 
Leave with Timer 0 off 
• Start 1st Temp Conversion 
Chip Select DS1620 

Start Convert T Command (initiate first Temp. 

conversion - data ready in 1 s) 

De-select the DS1S20 
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1020 



1025 



1030 



1035 



1040 



jt£^ DS1620 TEMPERATURE *♦♦*♦****♦♦♦**♦*♦♦**♦*•♦♦*♦****• 

Read DS1620 and return the Centigrade temperature in TEMP_MSB,TEMP_LSB, 
with 0.5 ©C resolution and in two's complement format. That is, a return 
value of FFS2H = -55 *C and a return value of OOFAH = +125 oC. The DS1620 
returns a 9 bit 2's complement # in the range of -55 oC to +125 ©0, which is 
converted to a full 2 byte 2's comlement number. 
READJTEMP: 

; Make sure the clock is high 
; Chip Select DS1620 
; Read TEMP Command 



SETB SCK 

SETS SEL 

MOV A, #0AAH 

CALL WRT_8BR 

SETB DIG 

MOV R2.#8 
LOOP004 : 

CLR SCK 

MOV C, DIO 

RRC A 

SETB SCK 

DJN2 R2,LOOP004 

CLR SCK 

MOV CDIO 

SETB SCK 

CLR SEL 

MOV TEMP_LSB,A 

MOV TEMPJISB, #00 

JNC MSB^DONE 

MOV TEMPOS, iOFFH 
MSB_DONE: 

RET 



Make sure DIO is Hi-Z input 

Clock data from DS1620 onto DIO 
Pickup data-bit from DIO 
Rotate data-bit into ACC 
Set serial clock high 
Loop for 8 LSb's 

Clock 9th bit from DS1620 onto DIO 
PicJcup data-bit from DIO 
Set serial clock high 
De-select the DS1620 

Assume temp 0 

Create full 2 byte, 2*s complement # 



1045 



1050 



8-BIT DS1620 WRITE ROUTINE ************** 
Call with data byte in ACC. Each ACC-bit is written (LSb first) 
and followed by a 0/1 transition of SCK, Original data is trashed, 
the currently selected Register Bank. 
WRT.SBR; 

MOV R2,#8 
LOOP002: 

CLR SCK ; Set serial clock low 

RRC A ; Shift next LSb into CARRY 



onto DIO 
Uses R2 of 
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MOV DXO,C 
SETB SCK 
DJNZ R2,LOOP002 
RET 



Move data onto DID 

Clock data into serial device 

Write all 8 bits of ACC 
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1070 



1075 



1080 



1085 



1090 



1095 



1100 



1105 



XllO 



1115 



1120 



1125 



U30 



TRANSMIT DATA ********** 

; Load data into XFIFO of SCC and execute Transmit Transparent Frame command, 
;Call with RO pointing to first byte of data and B containing number of 
;bytes to transmit, excluding STATUS which will always be loaded as first 
;byte of every message. If XFIFO is not clear, it will be reset prior to 
; loading data. Therefore any existing data that has not been retrieved by 
; Master will be lost. If more than 32 bytes are to be sent, program 
; execution will loop in this routine until transimission has been initiated 
;by the Master, allowing remaining bytes to be loaded. The Address and Control 
; fields of the SDLC message format are written to XFIFO as required when trans- 



; mi t ting transparent frajnes. 
XMIT_DATA: 

JB XFIFO_RDY. LOAD_DATA 

MOV DPTR, #CMDR 
FINISH^CMND: 

MOVX A,@DPTR 

JB ACC.2,FINISH_CMND 

CLR PKT_QUED 

MOV A,#XRES 

MOVX eOPTR^A 
WT_FOR_INT: 

JWB XriFO_RDY,WT_F0R_INT 
LOAD_DATA: 

CLR XFIFO_RDy 

MOV A, iMSTRJUJD 

MOV DPTR. #FIFO 

MOVX @DPTR,A 

MOV A, «SDLC_CTL 

MOVX SDPTR.A 

MOV A, STATUS 

MOVX 9DPTR,A 

MOV STATUS, #0 

MOV A,B 

CLR C 

SUBB A, #29 

MOV R1,#0 

JC LOOP_B 

MOV B,«29 

MOV R1,A 
LOOP.B: 

MOV A, @RD 

MOVX SDPTR.A 

INC RO 

DJNZ B,r,OOP_B 

JC MSG_END 

MOV DPTR,#STAR 
FINISH^CMNDl: 

MOVX A,9DPTR 

as ACC,2,FINISH_CMND1 

MOV DPTR, #CMDR 

MOV A,#XTF 

MOVX SDPTR.A 
Wr_FOR_INTl: 

JNB XFIFO_RDY,WT_FOR_INT1 

CLR XFIFO^RDY 

MOV DPTR, «FIFO 
FINISH_DATA: 

MOV A, «R0 

MOVX 9DPTR,A 

INC RO 

DJN2 R1,FINISHLI>ATA 

MOV DPTR, iSTAR 
FIN1SH_CMND2 : 

MOVX A,9DPTR 

JB ACC,2,FINISHLCMND2 
MSG_END: 

MOV DPTR, #CMDR 

MOV A, tXTF_XMS 

MOVX 9DPTR,A 

RET 



Uses Rl. 

;Skip reset FIFO if XFIFO ready 
; SCC Command reg (w) . Status reg 



tr) 



ChecJc CEC bit and jump if a cmnd executing 
Be sure XPR from XRES does not trigger Tl Int 
Load reset ^ XFIFO command 

Wait for Trans Pool Ready int 
... after XFIFO reset 

Indicate XFIFO not ready during trans 

Masters address must be inserted for transparent 

. . .frame. 

Load into XFIFO 

SDLC Control byte must be inserted for transparent 
frame. 

STATUS is 1st byte of every trans 

Current status sent, so clear 

Load send count into ACC 

Prepare for subtraction 

Check if send coiint > 29 

Asstune its not & clear 2nd block counter 

If not > 29 then jump to send "B" bytes 

If > 29 then 1st block = 29 plus Adrs.Cntrl i STATUS 

Load 2nd block counter with remainder 

RO initialized to first byte to send 
Load byte in XFIFO 
Pt to next byte 
Load 'B* bytes 

If C set from SUBB, then entire message loaded 
SCC status reg 



Check CEC bit and jxmp if a cmnd executing 
Send Transmit Transparent Frame command 
-•.to see to send 32 byte 
...block. 

Wait for Trans Pool Ready INT 

Indicate XFIFO not ready during transmission 

Pt to XFIFO 

Load data byte 

. . . into XFIFO 

Pt to next byte 

Send remainder of message 

SCC status reg 



; Check CEC bit and jump if a annd executing 

;Send XT? and Trans Message End 

command to SCC to finish 
; , . . Transparent frame . 



# QUE PKT FOR XMISSION AND RESET PKT BUFFER # 
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1135 



1140 



1145 



1150 



1155 



1160 



1165 



1170 



1175 



1180 



1135 



1190 



1195 



1200 



1205 



1210 



.•Initiate transmission of current cntr buffer (PKT) and set up the next buffer for 

;new data. Get here after CNTR^RDS has been dec'd to 0 in TO Int. 

QUE_PKT: 

MOV P2,#0COH 

PKT^QUED, OLD_PKT_XMITTD 



JNB 
MOV 
MOV 



R0,#06m 
A, #XRES 
PKT„QUED 
MOVX SRO.A 
SETB RES„PKT 



rSCC Command reg (w) , Status reg 
rLoad reset XFIFO command 



; Master must handle aborted frame 
Indicates last PKT never sent or aborted - there is 
. . .a slight chance this bit is set in error if POLL from 
...Master comes after JNB PKT_QUED and before or during 
- ..MOV A,#XRES. 



OLD_PKT_XMITTD 
MOV 
MOV 
JNB 



R0,#KEW_PKT_SI2 
CNTR„RDS,@R0 
PKT_BUF»LD„BUF1 
PKT_BUF_IN_LB . # LOW ( PKT.BUFO ) 
PKT_BUF_IN_HB , #HIGH ( PKT_BUFO ) 
SET^OUTBUF 



;Pt to PKT size in rec'd message 
;Set up PKT cntr for current PKT 



XFIFO^RDY, LOAD^PKT 

R0,#061H 

A,#XRES 



MOV 
MOV 
JMP 
LD.BUFl: 

MOV PKT_Bt3F_IN_LB , #LOW ( PKT,BUF1 ) 
MOV PKT_BUF„IN_HB . # HIGH ( PKT_BUF 1 ) 
SET_013TBUF : 

CPL PKT„BUF 
JNB PKT_BUF.SND_BUF1 
MOV DPL, #LOW(PKT_BUF0) 
MOV DPH, »HIGH { PKT^BUFO ) 
JMP PKT_QtJS 
SND_BUF1: 

MOV D PL , #LOW ( PKT_BUF1 ) 
MOV DPH, #HIGH ( PKT_BUF1) 
PKT.QUE: 
JB 
MOV 
MOV 

MOVX 8R0,A 
Wr_FOR_INT3 : 

JNB XF IFO_R0y , WT_F0R_INT3 
LOAD.PKT: 

CLR XFIFO_RDY 

MOV A, #MSTR_ADD 

MOV RO,#040H 

MOVX 9R0,A 

MOV A,#SDLC_CTL 

MOVX 9R0,A 

MOV A, STATUS 

MOVX eRO,A 

MOV STATUS, #0 

MOV B, #29 
L00P_B1: 

MOVX A.SDPTR 

MOVX 9R0,A 

INC DPTR 

DJNZ B,L00P_B1 

MOV R0,#06m 

MOV A, »XTF 

MOVX 9R0.A 
WT_F0R^INT4: 

JNB XFIFO.ROY, WT_F0R_INT4 

CLR XFIFO.RDY 

MOV RO,i040H 

MOV B,#32 
L00P.B2 ; 

MOVX A,9DPTR 

MOVX eR0,A 

INC DPTR 

DJNZ B,L00P_B2 

MOV R0,i061H 

MOV A,#XTP 

MOV PKT_BUF_OUT_LB. DPL 
MOV PKT_BUF_OUT_HB,DPH 
SETB PXT^QUED 
MOVX 9R0,A 



;Skip reset FIFO if XFIFO ready 
;SCC Command reg (w) , Status reg (r) 
fLoad reset XFIFO command 

jWait for Trans Pool Ready INT 
f... after XFIFO reset 

; Indicate XFIFO not ready during trans 
/Masters address must 3be inserted for transparent 

; frame. 

;Load into XFIFO 

;SDLC Control byte must be inserted for transparent 
J . . . . frame. 

; STATUS is 1st byte of every trans 
; Current status sent, so clear 



rLoad "B* bytes 
rSCC Command reg (w) , 



Status reg (r) 



;Wait for Trans Pool Ready INT 
-after XFIFO reset 



;Load 'B^ bytes 
;SCC Command reg 



(w). Status reg (r) 



ong 



Must be here in case XPR occurs due to master poll 
This XTF should not cause an XPR int because both XFIFOs are 
...now full. If an XPR occurs immediatly then a poll from master 
...must have ocurred after first XTF above. Since PKT_QUED and 
. . . PKT_BUF_OUT already handled then vector to Tl int is ok, 
. . .Normally after returning from QUE„PKT, MAIN loop and TO int run 

...until master polls and XPR (w/PKT_QUED set) causes Tl int to tr 
. . .entire PKT. 
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1215 



1220 



1225 



1230 



1235 



1240 



1245 



1250 



1255 



1260 



1265 



1270 



# READ CNTR LATCHES TO PKT BUFFER # 

Read Che latched cntxs into PKT_BUF„IN 
RD_CNTRS_PKT: 

MOV DPL,PKT_BUF_IN„LB 
DPH. PKT_BUF_IN_HB 
P2,#HIGH(CNTR_01 

R0,#LOW(QJTR„0) ;Point R0/P2 at 1st IC, 1st counter 
R1,#CNTR„BUF /Point to storage of last count data 

R3,#0 ;lnit IC coxinter, cntr (3 counters/ IC) 

CKCON,#001H ;Set KDO bit for stretch memory of X. 



MOV 
MOV 
MOV 
MOV 
MOV 
ORL 
LOOPOl: 
JB 
MOVX 
MOVX 
XCH 
CLR 
SUBB 
INC 



£YNC_CMND , READALL 

A,9R0 ;Read Status of IC(i,j) 

A,@RO ,'Read count LSB of IC{i,j) 

A,@R1 
C 

A,9R1 
Rl 

MOVX 9DPTR,A 
INC DPTR 
MOVX A,0RO 
XCH A, @R1 
SUBB A,9R1 
INC Rl 
MOVX eOPTR.A 
INC DPTR 
INC P2 
MOV A,P2 

CJNE A,#HIGH{CNTR_11) ,M0RE_CNTRS1 

5JXP READALL ;Jump at end of counter buffer. 

; . , .2 cntrs not used 

MORS.CNTRSl: 

CJNE A,#HIGHtCNTR_8),MORE_CNTRS2 ;When pntr reaches here, 
...indicates we are at last counter of 
...even bank (U14,CNTR2) which is not used. 
Skip unused counter. 
Go To Next IC 



;Save LSB of diff in cntr buf 
;Read count MSB of IC(i,j) 



;Save LSB of diff in cntr buf 
J Pointer to data MSB 
; Point to next counter 



INC P2 
SJMP NXT,IC1 
M0RE_CNTRS2: 
INC R3 

CJNE R3, #3, LOOPOl 



rLoop for all 3 counters of 
; . . .each 82c54 



NXT^ICl; 

MOV R3,#0 

MOV A, P2 

ADD A, #5 

MOV P2,A 

SJMP LOOPOl 
READALL: 

ANL CKCON, #0FEH 

MOV PKT_BUF_IN_LB , DPL 

MOV PKT-.BUF_IN_HB,DPH 
RET 



; Reset for next IC (3 counters /IC) 
;Mov P2 to next IC, 1st counter 



Get next 3 counters 



;Set to no stretch memory. 



Ifff«««»ii»«#f«#i»liiffii«#l««»t«####ifil«#*«l«*«««*»*«*««»*«««*««*#«»*#««#««««« 

# INC TST DATA AND READ TO PKT BUFFER i 

1275 ;«««l«i«i#«##««#«#«#*l«#*#*l#«»««»«t»*«i*it«*l«»«*«*ttft»««l»»»«H#i«««*«##««««»ft* 

TEATA^READt 

MOV RO,#DUMTfOjUSB ;Pt to LB of 1st test data 

INC_DATA,LP1: 
INC SRO 

1280 CJNE 9R0.#0,NOJlOLL_OVRl 

INC RO 
INC 9R0 
SJMP NEXT.LB1 
N0_R0LL_0VR1 : 
1285 INC RO 

NEXT.LBl: 
INC RO 

CJNE RO,»DUKYOFO_7,INC_DATA_LP1 jjntp if not at end 
MOV RO,»DUMyO_LSB ;Pt to LB of 1st test data word 

1290 MOV DPL , PKT_BUF_INLLB 

MOV DPH , PKT_BUF_IN_HB 
LD_TST_DTA: 
MOV A,9R0 
MOVX 9 DPTR. A 



Increment test data 
Jiimp unless byte roiled over 
If LB rolled, pt to HB 
...and increment 



;Pt to data word HB 

;Pt to next data word LB 
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1295 INC RO 

INC DPTR 

C JNE RO , # DUMYOF0_7 , LD_TST_DTA 
MOV PKT_BUF_rN_LB,DPL 
MOV PKT_BUF_IN_HB , DPK 

1300 RET 



;Jinp it not aC end 



1305 



1310 



1315 



1320 



1325 



1330 



1335 



1340 



1345 



1350 



1355 



1360 



1355 



1370 



1375 



» END PACKET MODE # 

#j|##«####««ll«#««##»#«««#####«f #«#«###«»####««««######»««#######«#*#««##########« 

STOP_PKT: 
CLR TRO 
CLR PKT_IN,PROG 
CLR CNTRS_LTCHD 
CLR PKT_QUED 
RET 

# INITIALIZATION ROUTINES * 

#######«####«####### jt####4l#«»#t«################# 
One-Time Initialization Routines. 
RE_SET: 



MOV PMR, #010001013 

MOV IE, #000010113 

MOV IP, #000000118 

MOV PI, #000111013 

MOV P3, #111111113 

MOV P2, #111111113 

MOV PO, #111111213 

MOV WDCON, #100000003 

MOV TCON, #000000003 



MOV TMOD* #000000013 



MOV CKCON, #000000003 



MOV SP, #STACK-1 



IC=XTAL/4, ALE disabled for onboard 
...data access, use IX of onboard XRAM 
Enable External INT 0, Timer 0 and Timer 1 (EA cleared). 
EXO and TO have high PRIORITY 
Hold 82526^ in reset condition 
GATE=0 

Set other port pins high 
.to recreate powenip 
, configuration 
SM0D1=1 for dbl Baud rate. Not used 

with UARTl 
Level triggered IRQs if 
.enabled. Also stops 
.both timers and clears 
.both IRQ edge flags 
TMRO is 16-bit general purpose and TMRl is Mode 0. TMRO will 
• .be set during PKT SYNC command. TMRl does not matter since it 
..is used as a simulated Int, initiated in EXO. 
Watchdog Timer = 2*17 clocks, TM0,1,2 

use 12 clocks, no stretch memory 
Initialize Stack Pointer to STACK- 1 since SP 
is inc'd before use. 



MOV RO,#OFFH 
LOOP07: 

MOV 9R0,#0 
DJNZ R0,L0OP07 

CLR RESET_526 



Clear 87C520 Scratchpad RAM 

; Point to end of scratchpad RAM 
; Initialize 87C520 RAM to 0 

;Take 82526 out of Reset state {1.8uS min) 



Read PC Soard Address 



ORI* CKCON, »001H 



MOV 
MOVX 
MOV 
ANL 



DPTR, #DIP_SW 
A,eDPTR 

CKCON, #0FEH 



Set MDO bit for stretch memory of 1. Appears to be marginal 

... timing at full speed as LB of DIP_SW must be FF to avoid 

...bus contention. 

Point DPTR at DIP Switch 

Read DIP Switch 

Save DIP Switch setting 

Set to no stretch memory. 



LCALL INIT„DS1620 



Initialize T&ag Sensor 



MOV TMOD, «02H 

Initialize DACs to Mid-Range 

MOV A,«DAC_INIT ; Mid-range setting 

CALL SET_ALL_DACS 

Configure 82c54 Event Counters 



Set tip sensor and begin conversions. Returns with TO disabled, 
TFO Clr. 

TO set for 8 bit, auto- reload for use with PKT mode 



ORL CKCON, #00iH 



MOV 
MOV 
LOOPOB: 
MOV 



DPTR, #CTRL02 
R0,#6 

A, #CTL_WD 



Set MDO bit for stretch memory of 1. Cotintera require 
...a stretch of 1 even at 16 MHz to satisfy worst case 
...conditions. Even with stretch can't go much above 
...24 MHZ for uC crystal. This instruction assumes MOl 
...and MD2 are clear. 
Point DPTR at 0th 82c54 
Configure 6 82cS4 ICs 

;Ctrl Word for counter-0 
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. (2 -byte, Mode=0, hex) 





MOVX 


SDPTR,A 


;Wrate CW for count er-0 




ADD 


A,«40H 


.'Offset to next cntr CW 




MOVX 


SDPTR.A 


; Write CW for counter-1 


13 80 


ADO 


A, »40H 


; Offset to next cntr CW 




MOVX 9DPTR,A 


; Write CW for counter- 2 




MOV 


A,DPH 


; ACC=DPH 




ADO 


A,«8 


;Add orrset to next 82cb4 




MOV 


DPH.A 


; Update DPH 


1385 


DJNZ 


R0.LOOPQ8 






ANL 


CKCOM, #OFEH 


;Set to no stretch memory. 




. 
















MOV 


DPTR,#CCR1 


/Channel Config Reg - 


1390 


MOV 


A,#91H 


; Power Up, Bus Configuration 




MOVX 


9DPTR,A 


; . . . Clock Mode 1 




MOV 


DPTR, #MODE 


;Mode Reg. Auto, 8 bit address 




MOV 


A,#08H 


external timer, RTS auto 




MOVX 


eDPTR,A 


control, timer res. k=32.768 


1395 


MOV 


DPTR, #TIMR 


; Timer Reg, CNT (retries) -1 




MOV 


A,»3FH 


; . . .VALUE=63 : t=k* (VALUE+1) *TCP 




MOVX 


SDPTR,A 


; . . .t=timeout, TCP^clocIc period 




MOV 


DPTR,#XAD1 


/Transmit Address 1 




MOV 


A,#MSTR_ADD 


; Masters address 


1400 


MOVX 


QDPTR.A 






MOV 


DPTR,#XAD2 


/Transmit Address 2 




MOV , 


A, #MSTR_ADD 


/ Masters address 




MOVX 


SDPTR.A 






MOV 


DPTR, #RAL1 


/Receive Address Low 1 


1405 


MOV 


A,BD_JVDR 


/Board Address as determined by 




MOVX 


eDPTR.A 


/ . . . switch 




MOV 


DPTR, #RAL2 


/Receive Address Low 2 




MOV 


A,#BROADCAST 


/Used for broadcast address in NRM 




MOVX 


&DPTR,A 




1410 


MOV 


DPTR. IRAKI 


/Receive Address High 1 




MOV 


A,#0 


;0 for single byte address 




MOVX 


9DPTR,A 






MOV 


DPTR, #RAH2 


/Receive Address High 2 




MOV 


A,#0 


;0 for single byte address. 


1415 


MOVX 


9DPTR.A 


; , . .modulo 8 




MOV 


DPTR, »XBCH 


/Transmit Byte Count High 




MOV 


A,#40H 


/Interrupt mode, NRM 




MOVX 


SDPTR^A 






MOV 


DPTR,#RLCR 


/Receive^ Length Check sets max 


1420 


MOV 


A,#0 


/...receive length, after which 




MOVX 


SDPTR,A 


/ . . .reception is suspended-disabled 




MOV 


DPTR,iMASK 


/MASK Interrupt disable register 




MOV 


A, #2EH 


; . . . ICA & EXA channel A interrupts 




, MOVX 


8DPTR,A 


/...disabled, RSC, TIN disbld 


1425 


MOV 


DPTR, #CCR2 


/Channel Control Register 2 RTS 




MOV 


A, #0OH 


/...active during trans, TyCLX. is.. 




MOVX 


9DPTR,A 


/...input, CTS disabled, RFS int disbld 




MOV 


DPTR, #CMDR 


/Command Register 




MOV 


A, #00H 


/clear commands 


1430 


MOVX 


8DPTR,A 






MOV 


DPTR,#XBCL 


, iransiniCk cy^e v.ouriw upin. ofixy 




MOVX 


flDPTR,A 


/clear reg 




MOV 


DPTR, #BGR 


/Baudrate Generator not used 




MOVX 


9DPTR,A 


/clear reg 


1435 


MOV 


DPTR, «TSAX 


/Time-Slot Assignment elk 5 only 




MOVX 


9DPTR,A 


/clear reg 




MOV 


DPTR, »TSAR 


; Time-Slot Assitnment elk 5 only 




MOVX 


«DPTR,A 


/clear reg 




MOV 


DPTR* #XCCR 


/Transmit Channel Capacity elk 5 only 


1440 


MOVX 


0OPTR,A 


/clear reg . 




KOV 


DPTR, #RCCR 


/Receive Channel Capacity elk 5 only 




MOVX 


&DPTR,A 


/clear reg 



1445 



5ETB EA 



Enable 37C51 IRQs 

/Global IRQ enable 



MOV DPTR, #STAR 
CLEARO: 
1450 MOVX A,«DPTR 

JB ACC. 2, CLEARO 

MOV DPTR,#CMDR 
MOV A, #XRES 
1455 MOVX 9DPTR,A 

Wr_F0R_INT2 : 



Power Up 82526 



;SCC Status /Command reg 



/Wait til Command Executing {CEO is clear 

;SCC Command reg 
/reset XFIFO 

/Wait for Trans Pool Ready INT 
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JNB XFIF0_RDY,WT_F0R„INT2 ;.. .after XFIFO reset 



1460 MAIN: 

JB NEW^CMND, DO„CKND ;Jmp to execute command if pending 

JNB CNTRS_LTCHD,MAIN ; Loop until a new command or counters latched {PKT mode) 

CLR CNTRS^LTCHD ; Reset 

1465 JNB DATA_TypE,LD_TST_CNTS ;DATA_TYPE set indicates real data (PKT mode) 

CALL RD_CNTRS_PKT ;Read cntrs into current PKT_BUF_IN 

SJMP CNTRS^READ 
LD_TST_CNTS: 

CALL TDATA^READ ; Inc test data and read into CNTR_BUF_IN 

1470 CNTRS_READ: 

JB syNC_CMND,MAIN 
MOV A.CNTR_RDS 
JNZ MAIN 
CALL QUE_PKT 



1475 



SJWP MAIN 



Poll for PKT.SYNC or TST_PKT_SVNC cmnds 
Load current PKT cntr 
Jmp if current PKT still in progress 

Que filled cntr buffer for xmission* point PKT„BUF_IN to 
. . .to other buffer 

Wait for new cmnd or new cntr data latched 



DO_CMND: 

MOV RO»#COMMAND ; Point to COMMAND byte of rec'd mess 

1480 MOV A,@RO ;Get new command from rec buffer 

C JNE A » # PKT_S YNC , CHX_TPKT_S VNC 
CLR TRO 

MOV TL0.#T0LOAD ;Count for lOOuS Int 

1485 MOV THO,«TOLOA0 ;Reload for TLO 

SSTB TRO 
CLR MEWLCMND 

ORL CKCON.#001H ;Set MBO bit for stretch memory of 1, 
CALL RESET_CNTRS 
1490 ANL CKCON,i(0FEH ;Set to no stretch memory, 

MOV R0,#0B9H 

MOV CUH^CNTR_LTCH_TM_LB»dRO 
INC RO 

MOV CUR^CNTR_LTCH_TM_H3. SRO 
1495 MOV LTCH_CNTR_TMR_LB,CUH_CNTR_LTCH_TH_LB 

MOV LTCH_CNTR_TMR_HB,CUS_CNTa_LTCH„TM_HB 

MOV RO,#CNTR_BUP 

MOV A, #OFFK 
INIT_LST_CNT_BUr : 
1500 MOV eRO.A 

INC RO 

C JNE RO » #OVRFLW0_7 , INIT„LST_CNT_BUF 

MOV R0,iNEW_PKT_SI2 ;Pt to PKT size in rec'd message 

MOV CNTR_RDS,eRO ;Set up PKT cntr for current PKT 

1505 MOV A,«RO 

CLR C 
SUBB A«#2 

MOV SND_PKT_SI2,A 
CLR PKT^BUF 
1510 MOV PKT.BUF_IN_LB,#LOW{PXT_BXJF0) 

MOV PKT_BUF_IN_HB , #HIGH { PKT^BUFO ) 
SETS DATA_TYPE 
SETS PKT_IH_PROG 
CLR CNTRS.LTCHD 

1515 CLR sm:_c«ND 

CLR NEW,C«ND 
SJMP MAIN 

CHK_TPKT_SYNC: 
1520 CJNE A,#TST_PXT.SYNC,CHK»PKT_ASrNC 

CLR TRO 

MOV TL0,#T0LOAD ; Count for lOOuS Int 

MOV TH0,»T0LOAD ; Reload for TLO 

SETS TRO 

1525 MOV R0,#DOMV0_LSB fPt to LB of 1st test data 

CLIL.TST_DATA: 
MOV 9R0»«0 
INC RO 

CJNE RO , i EUMyOF0_7 , CLR,TST_DATA 
1530 MOV RO,#0B9H 

MOV CUR.CNTRJ[*TCHjrM_LB,eRO 
INC RO 

MOV CUK.CNTH_LTCH_TM_HB , «R0 
MOV LTCH„CNTR.TMICLB , CUR_CNTR_LTCH_TM_LB 
1535 MOV LTCH_CNTR_TMR_HB , CUR_CNTR_LTCH_TM_HB 

MOV R0,»NEWLPKT_SI2 ;Pt to PKT site in rec*d message 

MOV CNTR_RDS,eRO ; Set up PKT cntr for current PKT 
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MOV A,©RO 
CLR C 
1540 SUBB A,l»2 

MOV SND_PKT_S 12 , A 
CLR PKT_BUF 

MOV PKT_BUF_IN_LB , #LOW t PKT.BUFO ) 

MOV PKT_BUF_IN_HB, #HIGH (PKT_BUFOJ 
1545 CLR DATA.TYPE 

SETB PKT_IN_PROG 

CLR CNTRS_LTCHD 

CLR SVNC_CMND 

CLR NEW_CMND 
1550 JJiP MAIN 



1555 



CHK_PKT_ASYNC; 

CJNE A, #PKT_ASYNC,CHK„READ_CNTS 
CLR NEW_CKND 
JMP MAIN 



1560 



1565 



1570 



1575 



1580 



1535 



CHK_REAO_CNTS: 

CJNE A, #READ_CNTS,CHK_RESEND 
;READ CNTS is the primary command that will be used under normal operating 
; conditions. It will be sent as a global command to all boards. Stop 
; counting, latch count, clear and restart counters, read counter latch and 
;load data into XFIFO, 

CLR NEW_CMND ; Processing command 

;The following code up to N0_R0LL_0VR4 label is for diagnostics only. The Get 
; Counts Rec'd coiinter is transmitted to Master after reciept of SND_DEBt7G cmnd. 



MOV 


RO,#GC_RCV_LSB 


■Pt to LSB of » Get Counts Received 


INC 


SRO 


•Increment # Get Counts Received 


CJNE 


@R0 , # 0 , NO_ROLL_0VR4 


'Jump Unless Byte Rolled over 


INC 


RO 


•If LB rolled, pt to next byte 


INC 


SRO 


• . . . and increment 


CJNE 


SRO , #0 , N0_R0LL_0VR4 


•Jump Unless Byte rolled over 


INC 


RO 


•Pt to next byte 


INC 


@R0 


• . . - and increment 


CJNE 


@R0 , # 0 , NO_ROLL_0VR4 


•Jump Unless High byte rolled over 


MOV 


flR0,#0FFH 


•set All #Get Counts bytes to FF 


DEC 


RO 




MOV 


@R0,#0FFH 




DEC 


RO 




MOV 


@RO,#OFFH 





N0_ROLL_0VR4 1 

CALL READ_CNTRS 

MOV RO,#CNTR_BUF 

MOV B,#34 

CALL XMIT^DATA 

JNB PKT_IN_PR0G,NO_PKT 

CALL STOP^PKT 
NO.PKT: 

JMP MAIN 



;Pt to 1st byte in co\2nter buffer 

;Nxamber of bytes to XMIT, excluding STATUS 

; Trans B bytes begining at RO 
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CHK„RESEND: 

CJNE A,#RESEND,CHK_TEST_DATA 
jRESENO reloads the XFIFO with the last counter data which is stored in RAM 
;at CNTH_BUF. The counters are not latched, reset or read. 

CLR NEWJCMND ; Processing command 

iThe following code up to NO_ROLL_OVR2 label is for diagnostics only. The Reloads 
;Rec'd coxmter is transmitted to Master after reciept of SND_DEBUG cmnd. 



MOV RO , «RL_RCV_LSB 
INC aRO 

CJNE 9RO,IO,NO.ROLL_OVR2 
INC RO 
INC 8R0 

CJNE 9RO,#0,NO_JIOLL_OVR2 

MOV 9R0,#0FFH 

MOV RO , #RL_RCV_LSB 

MOV »RO,IOFFH 
K0_R0U._0VR2; 

MOV R0,#CNTR3UF 

MOV B.#34 

CALL XMIT_DATA 

JNB PKT_IN,PROG,NO_PKT0 

CALL STOP^PKT 
NO.PKTO : 

JMP MAIN 



;Pt to LSB of # Reloads Received 
/Increment i Reloads Received 
• Jump Unless Byte Rolled over 
;If LB rolled, pt to Kb 
; . . .and increment 
;Jump Unless HB rolled over 
;Set Both # reload bytes to FF 



;Pt to 1st byte in counter buffer 

; Number of bytes to XMIT, excluding STATUS 

; Trans B bytes begining at RO 



CHK„TEST_DATA: 

CJNE A, #TEST_DATA, CHK_SND_STS 
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;TEST DATA Command increments each of 16 2 -byte dummy count regs 
;and sets 2 overflow bytes to OFFH on rollover. These 34 bytes plus 
; STATUS are then loaded into XFIFO emd transmitted, 

CLR NEW_CMND ; Processing command 

;The following code up to NO_R0LL_0VR5 label is for diagnostics only. The Get 
; Counts Rec'd counter is transmitted to Master after reciept of SND_DEBUG cmnd* 



MOV RO,#GC_RCV_LSB 
INC 9R0 

CJNE QRO,IO,NO_ROLL_OVR5 
INC RO 
INC SRC 

CJNE 9R0,#0,NO_ROUi_OVR5 
INC RO 
INC ©RO 

CONE eRO,IO,NO_ROLL_OVR5 

MOV eRO,#OFFH 

DEC RO 

MOV 9R0,«0FFH 

DEC RO 

MOV aRO,#OFFH 
NO_R0LL„0VR5; 

MOV RO,»DUMYO_LSB 
INC_DATA_LP: 

INC @R0 

CJNE eR0,#0,NO_ROLL_OVK 
INC RO 
INC SRO 

CJNE eR0,«0,NEXT_LB 

MOV Rl,#DUMYOF0_7 

MOV 9R1,#0FFH 

INC Rl 

MOV 9R1,0FFH 

SJMP NEXT.LB 
NO_^OLL_OVR: 

INC RO 
NEXT.LB: 

INC RO 

CJNE Ra,#DUMy0F0_7,INC_DATA„LP 
MOV R0,#I>UMY0.LSB 
MOV B,»34 
CALL XMIT_DATA 
MOV R0,#DUMy0_LSB 
MOV R1,#CNTR_BUF 
COPY^BUF: 

MOV A,9R0 
MOV SRI, A 
INC RO 
INC Rl 

CJNE RO , #DUKYOF0_7 , COPY_BUF 
JNB PKT_IN_PROG . NO.PKTl 
CALL STOP_PKT 
NO_PKTl: 

JMP MAIN 



Pt to LSB of I Get Counts Received 

Increment # Get Counts Received 

Jump Unless Byte Rolled over 

If LB rolled, pt to next byte 

. . .and increment 

Jump Unless Byte rolled over 

Pt to next byte 

. . .and increment 

Jump Unless High byte rolled over 
Set All #Get Counts bytes to FF 



Pt to LB of 1st test data 

Increment test data 

Jump unless byte rolled over 

If LB rolled, pt to HB 

. . . and increment 

Jump unless HB rolled over 

Pt to first OverFlow byte 

...and set all bits to indicate 

...all data words rolled. Pt to 

. . . 2nd OF byte and do same , 

Jump to pt to next data word 

Pt to data word HB 

Pt to next data word LB 

Jmp if not at end 

Pt to LB of 1st test data word 

Number of bytes to XMIT, excluding STATUS 

Trams B bytes begining at RO 

Set up Buffer to copy from 

Set up Buffer to copy to 



;Copy Buffer byte 
; Point Source buffer to next byte 
; Point Dest buffer to next byte 
;Jump if not at end 
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CHK_SND_STS: 

CJNE A,#SND_STS,CH!CRD„TEHP 

;This Command is set by SCC ISR when any transmit or receive error is detected. 
;It can also be sent by Master. 

CIS NEW_CMNO ; Processing current command 

;The following code up to N0_R0LL_0VR3 label is for diagnostics only. The NUinber 
;of Errors counter is transmitted to Master after reciept of SND_DEBUG annd. 



MOV RO, #NUMERiL-LSB 
INC SRC 

CJNE 9R0,«0,NO_ROLL.OVR3 
INC RO 
INC 8R0 

CJNE 9R0.#0,NO^OLL_OVR3 

MOV »RO,tOFFH 

MOV RO , tNUMERR^LSB 

MOV eROriOFFH 
NO_R0LL_0VR3s 

MOV DPTR,#CMDR 
CLEARl: 

MOVX A,9DPTR 

JB ACC. 2, CLEARl 

MOV A, #RHR 

MOVX 9DPTR,A 

MOV DPTR,#CMDR 

CLR XFIFO_RDY 
CLEAR2: 



Pt to LSB of I Errors Detected 

Increment I Errors Detected 

Jump unless Byte Rolled over 

If LB rolled, pt to Kb 

. . . and increment 

Jufltp Unless HB rolled over 

Set Both #error bytes to FF 



;SCC Command reg - reset RFIFO 



;Wait til Command Executing (CEC) is clear 
;S€nd Reset HDLC Receiver (RHR) 

;SCC ConBnand reg - reset XFIFO 

;Thi3 bit will be set following reset of XFIFO 
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M0V3C A,9DPTR 
JB ACC.2,CLEAR2 
CLR PKT.QUED 
MOV A,#XRES 
MOVX SDPTR^A 
WT_F0R_INT5 : 

JNB XFIF0_RDY,WT„FOR_INT5 



LOAD.STS: 


CLR 


XFIFO_RDY 


MOV 


A, IMSTR_ADD 


MOV 


DPTR,IPIFO 


MOVX 


9DPTR,A 


MOV 


A,#SDLC_CTL 


MOVX 


8DPTR,A 


MOV 


A, STATUS 


MOVX 


SDPTR.A 


MOV 


STATUS, #0 


MOV 


DPTR, ICMDR 


CLEAR3: 




MOVX 


A,9DPTR 


JB 


ACC.2,CLEAR3 


MOV 


A,#XTF,XME 


MOVX 


9DPTR.A 


JNB 


PKT_IN„PROG , N0_PKT2 


CALL 


STOP_PKT 


N0_PKT2 




JViF 


MAIN 



;Wait til Command Executing (CEC) is clear 
;Be sure XPR from XRES does not trigger Tl Int 
;Send Transmit Reset (XRES) to reset XFIFO 

;Wait for Trans Pool Ready INT 
; . . .after XFIFO reset 

Indicate XFIFO not ready during trans 

Masters address must be inserted for transparent 

. . . frame. 

Load into XFIFO 

SDLC Control byte must be inserted for transparent 
frame. 

STATUS is 1st byte of every trans 
; Current status sent, so clear 



Wait til Command Executing (CEC) is clear 
Send XTF and Trans Message End 
...command to SCC to finish I frame. 



CHK_RD_TEMP: 

; Reads DS1620 temp sensor and loads value into XFIFO 

CJNE A,«RD_TEMP,CHK„RES_XNR 

CLR NEW^CMND 

CALL READJTEKP 

JB XFIFO_R0Y,LOAD_TEMP 

MOV DPTR, #CMDR 
CLEAR4: 

MOVX A^eDPTR 

JB ACC.2,CLEAR4 

CLR PKT.QUED 

MOV A, #XRES 

MOVX eDPTR,A 
Wr_F0R^INT6 : 

JNB XFIFO_RDY , WT_FOR_INT 6 
LOAD_TEMP: 



; Processing current command 
;Read DS1620 into TEMP_LSB/MSB 

;SCC Command reg - reset XFIFO 



Wait til Command Executing (CEC) is clear 
Be sure XPR from XRES does not trigger Tl Int 



;Wait for Trans Pool Ready INT 
; . . .after XFIFO reset 



CLR XFIFO^RDY 
MOV A, #MSTR_AI>D 
MOV DPTR,iFIFO 
MOVX 9DPTR,A 
MOV A, #SDLC_CTL 
MOVX 9DPTR,A 
MOV A, STATUS 
MOVX 9DPTR,A 
MOV STATUS, #0 
MOV A,TEMP_LSB 
INC DPTR 
MOVX 9DPTR,A 
MOV A, TEMPOS 
MOVX »DPTR,A 
MOV DPTR, ICMDR 
MOV A, #XTF..XME 
MOVX 9DPTR,A 
JNB PKT_IN_PROG , N0_PKT3 
CALL STOP_PKT 
N0„PKT3 : 

JMP MAIN 



Indicate XFIFO not ready during trans 

Masters address must be inserted for transparent 

. . . frame . 

Load into XFIFO 

SDLC Control byte must be inserted for transparent 
frame. 

STATUS is 1st byte of every trans 
; Current status sent, so clear 



Send XTF and Trans Message End 
... command to SCC to finish 
— I frame. 
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CHK»RFS_XNR: 

;Reset3 SCC'c Receiver and Transmitter and clears diagnostic counters GCJRCV, 
?RL_J?CV and NOMERH. 



CJNE A,»RES_XNR,CKieSET_DACS 

CLR NEW.CMND 

MOV DPTR, #C«DR 
CLEARS: 

MOVX A,9DPTR 

JB ACC. 2, CLEARS 

CLR PKT_QUED 

MOV A,#XRES 

MOVX 9DPTR,A 
CLEAR6: 



; Processing current command 
;SCC Command reg - reset XFIFO 



Wait til Command Executing (CEC) is clear 

Se sure XPR from XRES does not trigger Tl Int 

. . .if not ready 
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MOVX A.@DPTR 

JB ACC. 2. CLEARS ;Wait til Command Executing <CEC) is clear 

MOV A,#RJiR ;*..if not ready 

MOVX 9DPTR,A 

1785 MOV RO, JtGC_RCV_Lsa ; Clear All Debug Info 

MOV @R0,#0 
NEXTBYTE: 

INC RO 

MOV QRO,#0 
1790 CJNE RO,#NUMERR_MSB, NEXTBYTE 

JNB PKT_IN_PROG , N0_PKT4 

CALL STOP_PKT 
N0_PKT4 : 

JMP MAIN 

1795 

CHK.SET_DACS: 

;Thas command is rec'd with 16 bytes of data. Loads each DAC with corresponding value 
;from receive buffer. 
1800 CJNE A, #SET_DACS,CHK.HD_DACS 

CLR NEW_CMND 

CALL SET_DACS_DIFF ;Set DACs from incoming message 

JNB P KT_IN_PROG , N0_PKT5 
CALL STOP_PKT 
1805 NO_PKTS: 

JMP MAIN 

CHK_RD_DACS: 

1810 f Loads XFIFO with current DAC settings taken from DAC_SAV buffer 

CJNE A , #RDi_nACS , CHK.CLR.CNTS 

CLR NEW_CMND 

CALL REAO_DAC_SEmNGS 

JNB PXT„IN_PROG , NO_PXTS 
1815 CALL STOP^PKT 

N0_PKT6 : 

JMP MAIN 

1820 CHK_CLR_CNTS t 

;Stop, clear and restart all counters without reading them, 
CJNE A,#CLR_CNTRS,CHK_DEBUG 
CLR NEW^CMND 

ORL CKCON,#001H ;Set MDO bit for Stretch memory of 1, 
1825 ;...DACs require a stretch of 1 to 

satisfy worst case conditions. 
;...This instruction assumes MDl and MD2 
; — are clear. 

CALL RESET.QJTRS 
1830 ANL CKCON,«0FEH ;Set to no stretch memory. 

JNB PKT_IN_PR0G»N0_PKT7 
CALL STOP^PKT 
N0_PKT7: 

JMP MAIN 

1835 

CHK.DEBUG: 

jThis conanand used for diagnostics only. It tremsaits the Get Counts Rec'd, 
; Reloads Rec'd and Nurober of Errors counters. 
1340 COKE A,#SND_DBBUG,NO_VAL_CHND ;Send Debug Stats Info to Master 

CLR NEWjCMND ; Processing Current Command 

MOV RO,fGC_RCV_LSB ;Pt to 1st byte in Debug Buffer 

MOV B,#7 /Number of bytes to XMIT. excluding STATUS 

CALL XMIT.DATA ; Trans B bytes begining at RO 

1345 JNB PKT_IN_PR0G,N0„PKT8 

CALL STOP.PKT 
N0_PKT8 : 

JMP MAIN 
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NO^VAL^CMND: 
JMP MAIN 



1855 END ; End of VACISBBD.ASM module 
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